***************************************************************************
matrix b=e(b)
local names: colfullnames b
matrix V=e(V)
forvalues i=1/$dep {
local b`i'=round(b[1,`i'],0.00001)
}

local newname: word 1 of `names'

matrix results$numvar=J(1,5,.)
matrix colnames results$numvar= b t-stat p-value R2_a obs
matrix rownames results$numvar=`newname' 

forvalues i=1/1 {
mat results$numvar[`i',1]=`b`i''
mat results$numvar[`i',2]=$tstat
mat results$numvar[`i',3]=$pval


}
mat results$numvar[1,4]=$adj_r2
mat results$numvar[1,5]=$obs

***************************************************************************

